home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / text 83-2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  17KB  |  573 lines
  1. 1 rem texteditor text 83-2
  2. 2 print"[144][147])[191]e[146][218])?e[146][219]%[146][186]e[146][223]%[146][187]e[146][160]%[146][219][201][196]p[146]a[160])[146]f[165][223]e[146][223]p[146]b[166][146][160] [146]d1[146][223]e[146]";
  3. 3 print"bh1[146][223][176][164][146][198]b*[198]b*q[146][218]h[208][177][146]x%[146][218][169]ce[146][218])[146]dp[215][166][146][219]xp[210]":sys 256*peek(648):
  4. 4 remh/0c*@!"w!v9*4!"x*<h!v(,@,wk!@j&82x;4@ae@*@xr(ad*@a!@jau@j<tb2@[,are$@)n
  5. 5 rem@bztjr2q49zd$v2$439mx9vg42*j1!xh*<!"v(@4,v2$4@9evbb5bbdvv24p@9vw!@&$r"*d
  6. 6 rem)@$&wz*0:4@a9x)rv462)@b*a!@z+@7"j?#"@7*jn#fh4*3h#"@!+d4(bh#"d4*"<#ii@*08
  7. 7 [143]#i@/*@!"*!*:*:#&@@*^0#@k@v*2$s41?+@87b@+#@7"*e#*f4*ba#"h@+dz4j7k#d4(*2#&
  8. 8 remi@*^<#i+@* ;#@@'*)#"@@x<h.0ls )l!5r,)&2&@<a0zs2a<"r$&r*b@!?ihf0mbi?ubi?u
  9. 9 rem!?f(*1y"*y*+y?!&?(@p+h4(jc!.@+!y@bbubbav@$)[h/0c,?j*<)*edararrru!@,&)i*)
  10. 10 [143]a@$&)2n )?:*@!?*,@1e?,?zjc)-*lapbbbub!@y,)i**a@y$)2(0b$@0h100)*9r?!.*d@s
  11. 11 [143]se0a9)4\@9*tf))jzb!")$@!9))v*23k,@sle04da))[2:$ ]h/ 0(@0!v*f7!v;*p!"w*8:
  12. 12 [143]!x9!v,w;$v2$4>9ix4<c&$vi24>c9v4\=h100*2;!v*.j!wk*3!"x9vg,w$.v24p>9x$)x2"
  13. 13 [143]4$;c+h4(jc!.@+!y@bbubbav@(0p$v2$4>*n0!)k*3!.**@h!)**?!)y*c!.*z*pz*zdfx)b
  14. 14 [143]52h8$h2fx,@cj/x,2 , @j7;x2(h$d2b0,@c:ox,: 2"_4@1*_x$*zzp"2gz4@sl\02z'<p!
  15. 15 [143]2e< /2%x<.2fc4@#s\0g2#4(@s\102#9<v2fc<wp2d<$w2$9<x2j$4@#si0o2d4(@ss302$;
  16. 16 [143]<u2fd4@3sd0gsg9k)*d$a*c;!*s$e0)f)4a!))2&8<fan))j:b!"),@!1)nt)):.@!)+,@1e
  17. 17 rem**<h!*s$e0*f@!*j<a*ba!*jse0a*@!&*4a0*@!"*se00*8x!v*.@!vi$v2$4>9mv4=3*3!"
  18. 18 remv+h:4jck!@+&!@bubbbua@$&v24p>9v7)v8\4$<c*@!")!)+*3!"**8h!)*&c!*9se0a))2&
  19. 19 rem8$(#4a)f)2p($e)n):p(!))*):@z!)n$)):.j!)k,@1e*se@0))y2?$$@s'30))*zp!"))))
  20. 20 [143]z@!*)f)r)zj8!)$,@9*tse0a))!.v)*xj@!.v)v;4bnh*j9"v<@q,c)jvn:rj!vi,:1evd91
  21. 21 remfryb)!);$@9e*zbaivb]ivb]ivf\y)!*))))yv!.)*c[!*s$#0^x)@j*>!@*x)@jba!&@vx 
  22. 22 poke53280,9:poke53281,0
  23. 23 dim lv(8):dima$(300):dimkf$(10):poke53265,peek(53265) and239
  24. 24 printchr$(14):cp=0:ty=1:gl=1:gr=0:print"[147]"
  25. 25 print" [155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  26. 26 print" [155] * * * * * [212][197][216][212][214][197][210][193][210][194][197][201][212][213][206][199] * * * * * [146]"
  27. 27 printchr$(14):gr=0:ko=0
  28. 28 forx=1to9:print"[152]                        [146]":next:poke53265,peek(53265) or16
  29. 29 input"[203]omma zulassen[j/n][146]     j[157][157][157]";ko$:ifko$="j"thenko=1
  30. 30 input" [199] [146]rafik[152]  oder  [212] [146]ext    [212][157][157][157]";gr$
  31. 31 input"[196]atum [212][212].[205][205].[202][202][202][202][146]     [164][157][157][157]";io$
  32. 32 ifgr$="g"thengr=1
  33. 33 print"[147]"chr$(14):s=1
  34. 34 goto301
  35. 35 sys49152:poke53280,2:ak=1
  36. 36 rem ***     "[197][196][201][212][207][210]"      ***
  37. 37 rem          ------
  38. 38 rem "a$(x)=[218]eile x"
  39. 39 rem "eg$  =eingelesenes [218]eichen"
  40. 40 rem "b$   =aktueller [215]ert der [218]eile"
  41. 41 rem "x    =[218]aehlvariable f. [218]eile"
  42. 42 rem "left$=link.[212]eil bei [193]enderung"
  43. 43 rem "right=rech.[212]eil bei [193]enderung"
  44. 44 rem"[208]os  =[218]aehlvari.fuer left$"
  45. 45 rem
  46. 46 rem--------------------------------
  47. 47 c$=" ":e=60:f=1:h=1:r=1:u=1:v=1:n=1:m=77:k=1:ab=1:kc=1:j=78:lc=0:dx=0
  48. 48 print"[147]":poke53280,2:ifdx=1thengoto302
  49. 49 gosub192
  50. 50 print" "lf$" [146]":print" [153] [211]eite: [146] [155]"r"  [218]eilen: [146] "ab" bis "ab+17
  51. 51 iflc=0thenprint:goto57
  52. 52 print""
  53. 53 ifab>1thenprint
  54. 54 forpm=htokc:printa$(pm)"_":f=f+1-gr
  55. 55 iff=20thenf=1:gosub192
  56. 56 nextpm
  57. 57 lc=0
  58. 58 forn=abtoe:v=len(a$(n))+u:w=m:p=0:f=f+1-gr:printc$a$(n)"[170] [157][157]";
  59. 59 forl=vtom:
  60. 60 geteg$:ifeg$=""thenprint"     [157][157][157][157][157][167]    [157][157][157][157][157]";:goto60
  61. 61 :
  62. 62 ifasc(eg$)=137thenm=m-1:c$=c$+" ":k=k+1:goto 206
  63. 63 ifasc(eg$)=138thenm=m+1:k=k-1:c$=left$(c$,abs(k)):goto 206
  64. 64 ifasc(eg$)=139thenj=j-1:m=m-1:goto 206
  65. 65 ifasc(eg$)=140thenj=j+1:m=m+1:goto 206
  66. 66 ifko=0 and eg$=","theneg$="."
  67. 67 eg=asc(eg$)
  68. 68 ifeg=13thenw=0:l=m:print"_":goto76
  69. 69 ifeg=20andp>0thenp=p-1:b$=left$(b$,p):eg$="":print"[157]";:l=l-2:p=p-1:goto74
  70. 70 ifeg=133thenf=1:lc=1:ab=n:kc=n-1:goto301
  71. 71 ifeg=134thenf=1:lc=1:ab=n:kc=n-1:goto225
  72. 72 ifeg=135thenf=1:lc=1:ab=n:kc=n-1:goto117
  73. 73 b$=b$+eg$
  74. 74 print"[155]"eg$"[170] [157][157]";:eg$=""
  75. 75 q=l:lc=1
  76. 76 p=p+1:nextl
  77. 77 print"_[155]":a$(n)=c$+a$(n)+b$:b$=""
  78. 78 ifw<m thenv=1:goto93
  79. 79 ifleft$(right$(a$(n),2),1)=right$(a$(n),1)thenprint:goto93
  80. 80 if right$(a$(n),1)="."thenprint:goto93
  81. 81 if right$(a$(n),1)=":"thenprint:goto93
  82. 82 if right$(a$(n),1)=";"thenprint:goto93
  83. 83 if right$(a$(n),1)="!"thenprint:goto93
  84. 84 if right$(a$(n),1)="?"thenprint:goto93
  85. 85 if right$(a$(n),1)=chr$(32)thenprint:print:goto93
  86. 86 if right$(a$(n),1)="-"thenprint:goto93
  87. 87 print"[145]"
  88. 88 l$=a$(n):g=len(l$)-1
  89. 89 if right$(a$(n),1)=chr$(32)thengoto92
  90. 90 a$(n+1)=right$(a$(n),1)+a$(n+1):a$(n)=left$(a$(n),g):g=g-1:ifg=-1thengoto92
  91. 91 print"[145]"tab(g+1)" ":goto88
  92. 92 print
  93. 93 iff=20thenf=1:ab=n+1:kc=n:h=h+20:goto48
  94. 94 print"[145][145]":next
  95. 95 poke198,0:ifn>299thengoto109
  96. 96 print"[155]              [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][155]               [175][146]"
  97. 97 print"":forx=1to80:print"-";:next:print"[145]"tab(50)" [208][210][197][211][211] [198] 1 [146][155]"
  98. 98 geteg$:ifeg$=""thengoto100
  99. 99 ifasc(eg$)=133thengoto105
  100. 100 eg$=""
  101. 101 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [197] n d e   d e r   [211] e i t e [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  102. 102 print"              [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  103. 103 forx=0to350:next
  104. 104 goto96
  105. 105 poke198,0
  106. 106 ab=n:kc=n:h=r*60:f=1
  107. 107 r=r+1:e=e+60
  108. 108 goto48
  109. 109 :
  110. 110 print"[147]"
  111. 111 sys49339
  112. 112 printchr$(14);"[197]nde der [211]eite [206]r.5":print"<[196]ruecke [198]1>"
  113. 113 geteg$:ifeg$=""thengoto113
  114. 114 ifasc(eg$)<>133thengoto113
  115. 115 dx=1
  116. 116 goto304
  117. 117 sys49339
  118. 118 print"[147]";chr$(14)
  119. 119 print"[147]":c=1
  120. 120 printtab(18)"[196][201][211][203]"
  121. 121 print""tab(13)"  [196]iskbefehl  [146]"
  122. 122 print""tab(13)"  [196]iskinhalt  "
  123. 123 getbb$:ifbb$=""then123
  124. 124 ifbb$=""thenc=2:goto128
  125. 125 ifbb$="[145]"thenc=1:goto121
  126. 126 ifasc(bb$)=13then131
  127. 127 goto123
  128. 128 print""tab(13)"  [196]iskbefehl  "
  129. 129 print""tab(13)"  [196]iskinhalt  [146]"
  130. 130 goto123
  131. 131 ifc=2thengoto160
  132. 132 print""tab(13)"   [204]oeschen    [146]"
  133. 133 print""tab(13)"  [198]ormatieren  "
  134. 134 getbb$:ifbb$=""then134
  135. 135 ifbb$=""thenc=2:goto139
  136. 136 ifbb$="[145]"thenc=1:goto132
  137. 137 ifasc(bb$)=13then142
  138. 138 goto134
  139. 139 print""tab(13)"   [204]oeschen    "
  140. 140 print""tab(13)"  [198]ormatieren  [146]"
  141. 141 goto134
  142. 142 ifc=2then152
  143. 143 input"[152] [206]ame ";f$
  144. 144 f$="s:"+f$
  145. 145 :
  146. 146 open1,8,15
  147. 147 close1
  148. 148 if(st and -128)<>0then print" [196]iskfehler[146][152]":poke198,0:wait198,1:goto146
  149. 149 open1,8,15,f$
  150. 150 close1
  151. 151 poke198,0:print"[147]":sys49152:goto48
  152. 152 input"[152] [206]ame ";f$:input" [201][196] ";i$
  153. 153 f$="n:"+f$+","+i$
  154. 154 open1,8,15
  155. 155 close1
  156. 156 if(st and -128)<>0then print" [196]iskfehler[146][152]":poke198,0:wait198,1:goto154
  157. 157 open1,8,15,f$
  158. 158 close1
  159. 159 poke198,0:print"[147]":sys49152:goto48
  160. 160 rem ***directory***
  161. 161 printchr$(147):print"[147][153][196]isketteninhalt:"
  162. 162 print"---------------"
  163. 163 print"[152]":ba$="":bb$="":cc$="":cc=0
  164. 164 open1,8,0,"$0"
  165. 165 get#1,ba$:get#1,bb$
  166. 166 get#1,ba$:get#1,bb$
  167. 167 get#1,ba$:get#1,bb$
  168. 168 ifba$<>""thencc=asc(ba$)
  169. 169 ifbb$<>""thencc=cc+asc(bb$)*256
  170. 170 print"[152]"mid$(str$(cc),2);tab(8);
  171. 171 get#1,bb$:ifst<>0then179
  172. 172 ifbb$<>chr$(34)then171
  173. 173 get#1,bb$:ifbb$<>chr$(34)thenprintbb$;:goto173
  174. 174 get#1,bb$:ifbb$=chr$(32)then174
  175. 175 printtab(30);:cc$=""
  176. 176 cc$=cc$+bb$:get#1,bb$:ifbb$<>""then176
  177. 177 print"["left$(cc$,3)"]"
  178. 178 ifst=0then166
  179. 179 print"[158][194][204][207][195][203][211] [198][210][197][197]":close1
  180. 180 poke198,0:wait198,1:poke198,0
  181. 181 print"[147]":sys49152:goto48
  182. 182 print"[147]"
  183. 183 input"[158][211]ind [211]ie sicher  [j/n] ?    j[144][157][157][157]";gg$
  184. 184 ifgg$="n"thenprint"[147]":goto306
  185. 185 print"[155][196]atei '"lf$
  186. 186 print"wird geloescht !":lf$=""
  187. 187 forx=0to300:a$(x)="":next:ty=1:kr=0:goto24
  188. 188 print"[145]"tab(60)"12345678901234567890[145]"
  189. 189 ifj>78thenj=78:m=m-1
  190. 190 if(j-1)<kthenj=k:m=m+1
  191. 191 print"[145]"tab(j)"[167][164]"
  192. 192 ifk<0thenk=0
  193. 193 print"[152][147]":gosub218
  194. 194 if(k+1)>jthenk=k-1:f=f-1:m=m+1:c$=c$-" "
  195. 195 print"[152]"tab(0);
  196. 196 print"123456789012345678901234567890123456789012345678901234567890"
  197. 197 print"[145]"tab(60)"12345678901234567890[145]"
  198. 198 ifj>78thenj=78:m=m-1
  199. 199 if(j-1)<kthenj=k:m=m+1
  200. 200 print"[145]"tab(j)"[167][164]"
  201. 201 ifk<0thenk=0
  202. 202 print""tab(k-1)"[164][165]"
  203. 203 f=f+1:return
  204. 204 forl=1ton:printa$(l):next
  205. 205 print"123456789012345678901234567890123456789012345678901234567890"
  206. 206 lc=1:eg$="":ab=n:kc=n-1:f=1:gosub218
  207. 207 if(k+1)>jthenk=k-1:m=m+1:c$=c$-" "
  208. 208 print"[152]"tab(0);
  209. 209 print"123456789012345678901234567890123456789012345678901234567890"
  210. 210 print"[145]"tab(60)"1234567890123456789[145]"
  211. 211 ifj>78thenj=78:m=m-1
  212. 212 if(j-1)<kthenj=k:m=m+1
  213. 213 print""tab(j)"[167][164]"
  214. 214 ifk<1thenk=1:m=m-1:c$=c$+" "
  215. 215 print""tab(k-1)"[164][165]"
  216. 216 goto50
  217. 217 rem
  218. 218 rem ***"[200][201][204][198][197][204][197][201][211][212][197]"***
  219. 219 rem
  220. 220 printchr$(14):print""tab(40)" * * *  [212] [197] [216] [212] [197] [196] [201] [212] [207] [210]  * * * "
  221. 221 :
  222. 222 print" [154]      [198] 1 = [196][160][193][160][212][160][197][160][201]    [146][221]    [198][160]3 = [200] [201] [204] [198] [197]"
  223. 223 print"[145]"tab(46)"       [146][221]     [198] 5 = [196][160][201] [211][160][203]       [146][144]"
  224. 224 return
  225. 225 sys49339
  226. 226 print"[147]";chr$(14)
  227. 227 print"[200]ilfe - [205]enue"
  228. 228 print"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
  229. 229 ift=1thenprint"[153][198]2 - [198]4 - [212]abulator linker [210]and -->"
  230. 230 ift=4thenprint"[153][198]4      - [212]ext verschieben  -->"
  231. 231 ift=1thenprint"[198]6 - [198]8 - [212]abulator rechter [210]and <--"
  232. 232 ift=4thenprint"[198]6      - [212]ext verschieben  <--"
  233. 233 print"[198] 1     - [196]atei bearbeiten"
  234. 234 print"[198] 5     - [196]iskbefehl senden"
  235. 235 :
  236. 236 print" 1.@       - [194]reitschrift drucken"
  237. 237 print" 2.?       - [194]reitschrift beenden"
  238. 238 print" 3.[195]om + [212] - [213]nterstreichen"
  239. 239 print" 4.[195]om + + - [213]nterstreichen beenden"
  240. 240 print" 5.[195]om + * - [198]ettdruck"
  241. 241 print" 6.[211]hift+\ - [198]ettdruck beenden"
  242. 242 print" 7.[211]hift+5 - [150][206].[204].[209].[153]"
  243. 243 print" 8.[211]hift+6 - [196]raft"
  244. 244 print" 7.  _     - [212]iefzeichen"
  245. 245 print" 8.  ^     - [212]iefz. loeschen"
  246. 246 print"[154] [210]eihenfolge der [196]ruckercodes beachten![155]"
  247. 247 print"[153] [201]m [199]rafikmodus [206].[204].[209]. einstellen ![155]"
  248. 248 poke198,0:wait198,1:poke198,0
  249. 249 print"[147]";chr$(142):sys49152
  250. 250 ifui=3goto434
  251. 251 goto48
  252. 252 printchr$(14)
  253. 253 print"[147][196]ateiname : "lf$
  254. 254 print" [215]ollen [211]ie den [206]amen aendern  [j/n] ?"
  255. 255 gets$:ifs$=""then255
  256. 256 ifs$="n"thengoto264
  257. 257 lf$="":print" [198]ilename [^] [205]enue : [164]";
  258. 258 geteg$:k=len(lf$):ifeg$=""thengoto258
  259. 259 ifeg$="^"thengoto302
  260. 260 if(eg$=chr$(20) andk>0)thenprint"[157][157]  [157][157][164]";:lf$=left$(lf$,k-1):goto258
  261. 261 ifeg$=chr$(20)thengoto258
  262. 262 ifeg$=chr$(13)thengoto264
  263. 263 print"[157]"eg$"[164]";:lf$=lf$+eg$:eg$="":iflen(lf$)<12thengoto258
  264. 264 l$=lf$+".txt,s,w":k$=lf$+".txt,s,r"
  265. 265 open2,8,15
  266. 266 open1,8,2,k$
  267. 267 input#2,en,e$,et,es:ifen<>0thenclose1:close2:goto269
  268. 268 print:print"[150][196]atei loeschen oder neuen [206]amen !":close1:close2:goto257
  269. 269 print:print"[196]atei '"lf$"' wird gesichert !":open1,8,2,l$
  270. 270 print#1,n:print#1,e
  271. 271 foro=1to177
  272. 272 print#1,a$(o)
  273. 273 next
  274. 274 print#1,"***":close1:goto302
  275. 275 printchr$(14)"[147][159]":ifty>1thenprint" "ty"[157].[196]atei laden  [j/n] ? [146]":poke198,0
  276. 276 ifty=1thengoto279
  277. 277 geteg$:ifeg$=""thengoto277
  278. 278 if(eg$="n" orty=11)thengoto302
  279. 279 gosub567:print">> [196][193][212][197][201]  laden <<"
  280. 280 print"[155] [196]irectory [$] [146]":print" [205]enue     [^] [146]"
  281. 281 input" [196]ateiname :";kf$(ty):lf$=lf$+" / ":ifty=1thenlf$=""
  282. 282 ifkf$(ty)="^"thenkf$(ty)="":goto302
  283. 283 lf$=lf$+kf$(ty):m$=kf$(ty)+".txt,s,r"
  284. 284 open1,8,15
  285. 285 close1
  286. 286 if(st and -128)=0thengoto289
  287. 287 if(st and -128)<>0thenprint"[150] [198]loppy anschalten ![146]"
  288. 288 print"[153]   [196]ruecke [212]aste  [146][155]":poke198,0:wait198,1:poke198,0:goto284
  289. 289 open1,8,15:ifkf$(ty)="$"thenclose1:goto545
  290. 290 k$="0:"+m$:open2,8,2,k$:input#1,en,e$,et,es:ifen=0thenclose2:close1:goto292
  291. 291 close2:close1:print"[150]"e$:goto281
  292. 292 print" [204]oading  --> [158]"kf$(ty):open1,8,2,m$
  293. 293 input#1,n:input#1,e
  294. 294 foro=glto300
  295. 295 input#1,a$(o)
  296. 296 ifa$(o)="***"thena$(o)="":goto300
  297. 297 a$(o)=c$+a$(o)
  298. 298 next
  299. 299 ifgl+n>300thenprint"[150] [193]chtung ! [211]peicher voll ![146]":cp=1:poke198,0:wait198,1
  300. 300 close1:ty=ty+1:gl=gl+n:ab=n:kc=n-1:print"[147]":goto302
  301. 301 rem menue
  302. 302 poke198,0:poke53265,peek(53265) and239
  303. 303 sys49339:am=1:lv(am)=1
  304. 304 print"[147]"
  305. 305 :
  306. 306 printchr$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  307. 307 print"[145][221] * * * * * texteditor t83-2[146][144] * * * * * [221]"
  308. 308 print"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  309. 309 print"datum: ";io$:print" f1[165][167][223][146]"
  310. 310 print"  [223][165][167]f3"
  311. 311 poke53280,6:poke53281,14:z$(0)="    datei [146]   "
  312. 312 z$(1)="   editor    "
  313. 313 z$(2)="  loeschen   "
  314. 314 z$(3)="    laden    "
  315. 315 z$(4)="   aendern   "
  316. 316 z$(5)="   sichern   "
  317. 317 z$(6)="   drucken   "
  318. 318 z$(7)="   beenden   ":goto328
  319. 319 printtab(z)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  320. 320 printtab(z)"[180]             [170]"
  321. 321 printtab(z)"[180]"z$(0)"[170][144] [146]"
  322. 322 printtab(z)"[180]             [170][144] [146]"
  323. 323 printtab(z)"[180]"z$(t)"[170][144] [146]"
  324. 324 printtab(z)"[180]             [170][144] [146]"
  325. 325 printtab(z)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][144] [146]"
  326. 326 printtab(z)"[144]             [146]"
  327. 327 return
  328. 328 poke53265,peek(53265) or16:z=2:l=1:t=1
  329. 329 print"":gosub319
  330. 330 goto334
  331. 331 t=t+1:z=z+3:l=l+2:ifz<2thenz=2:l=1:t=1
  332. 332 ifz>20thenz=20:l=13:t=t-1
  333. 333 print"":forx=1tol:print:next:gosub319
  334. 334 forx=55338to55346step2:pokex,1:pokex,0:next
  335. 335 forx=55365to55373step2:pokex,1:pokex,0:next
  336. 336 geteg$:ifeg$=""thengoto334
  337. 337 ifeg$=""thenprint"":goto328
  338. 338 ifasc(eg$)=133thengoto331
  339. 339 ifasc(eg$)=134thenz=z-6:l=l-4:t=t-2:goto331
  340. 340 ifasc(eg$)=13thengoto342
  341. 341 goto334
  342. 342 print"[147]"chr$(14):poke53280,12:poke53281,0
  343. 343 if(t=1 andkr<1)thengoto521
  344. 344 ift=2thengoto182:rem loeschen
  345. 345 if(t=3 andcp=0)thengoto275:rem laden
  346. 346 ift=4thenx=n:ab=x:ac=n:print"[144]":sys49152:goto 434
  347. 347 ift=5thena$(n+1)="***":goto252:rem sichern
  348. 348 ift=6thengoto352:rem drucken
  349. 349 ift=7thenprint"[147]":end:rem ende
  350. 350 if(t=1 andkr=1)thenprint"[144]":sys49152:goto48
  351. 351 goto302
  352. 352 rem *****drucken*****
  353. 353 poke53265,peek(53265) and239:print"[147]"chr$(14):poke53280,9:poke53281,0
  354. 354 xc=0:print"                [196]rucken"
  355. 355 print"                -------"
  356. 356 print"     [193]usdrucken aller [211]eiten    [193] [146]"
  357. 357 print"     [193]usdruck einer [211]eite       [197] [146]":poke53265,peek(53265) or16
  358. 358 get y$:ify$=""then358
  359. 359 ify$="a"thengoto362
  360. 360 ify$="e"thengoto399
  361. 361 goto358
  362. 362 print"[150] [193] [146]"
  363. 363 open1,4
  364. 364 print#1,chr$(13)
  365. 365 close1:poke198,0
  366. 366 if(st and -128)<>0thenprint"[150]        [196]rucker anschalten [146]         [152]"
  367. 367 if(st and-128)<>0thenprint"        < [212]aste druecken >":wait198,1:goto352
  368. 368 :
  369. 369 print"     [196]rucke [211]eite [206]r.                 "
  370. 370 print"     [193]bbruch                   [150] [197] [146]"
  371. 371 print"     [196]rucken                   [150] [196] [146]"
  372. 372 getq$:ifq$=""then372
  373. 373 ifq$="e"thenclose4:goto301
  374. 374 ifq$="d"then376
  375. 375 goto372
  376. 376 print"     [196]rucke [211]eite [206]r.                 "
  377. 377 xc=xc+1:poke198,0
  378. 378 print"[153] [157]"xc"[157] [146]"
  379. 379 open4,4,7
  380. 380 forx=xc*60-59toxc*60:g$=left$(a$(x),1)
  381. 381 ifx=178thengoto398
  382. 382 ifg$="@"thengosub501:g$=left$(a$(x),1)
  383. 383 ifg$="?"thengosub503:g$=left$(a$(x),1)
  384. 384 ifg$="[163]"thengosub505:g$=left$(a$(x),1)
  385. 385 ifg$="[166]"thengosub507:g$=left$(a$(x),1)
  386. 386 ifg$="[223]"thengosub509:g$=left$(a$(x),1)
  387. 387 ifg$="[169]"thengosub511:g$=left$(a$(x),1)
  388. 388 ifg$="%"thengosub513:g$=left$(a$(x),1)
  389. 389 ifg$="&"thengosub515:g$=left$(a$(x),1)
  390. 390 ifg$="_"thengosub517:g$=left$(a$(x),1)
  391. 391 ifg$="^"thengosub519:goto393
  392. 392 ifgr=0thenprint#4
  393. 393 rem iff=3thena$(x)=right$(a$(x),len(a$(x))-1)
  394. 394 print#4,a$(x):next
  395. 395 ifpeek(198)>0thenclose4:goto301
  396. 396 ifxc=5thenclose4:goto301
  397. 397 print"[158]     [211]eite gedruckt   "
  398. 398 close4:goto372
  399. 399 print"[150] [197] [146]":xc=1
  400. 400 open1,4
  401. 401 print#1,chr$(13)
  402. 402 close1:poke198,0
  403. 403 if(st and -128)<>0thenprint"[150]        [196]rucker anschalten [146]         [152]"
  404. 404 if(st and-128)<>0thenprint"        < [212]aste druecken >":wait198,1:goto352
  405. 405 input"     [215]elche [211]eite drucken        1[157][157][157]";xc:ifxc=0then301
  406. 406 ifxc=0thenclose4:goto301
  407. 407 print"     [196]rucke [211]eite [206]r.                 "
  408. 408 print"     [193]bbruch                   [150] [197] [146]"
  409. 409 print"     [196]rucken                   [150] [196] [146]"
  410. 410 getq$:ifq$=""then410
  411. 411 ifq$="e"thenclose4:print"[147]":goto301
  412. 412 ifq$="d"then414
  413. 413 goto410
  414. 414 poke198,0
  415. 415 print"[150] [157]"xc"[157] [146]"
  416. 416 open4,4,7
  417. 417 forx=xc*60-59toxc*60
  418. 418 forx=xc*60-59toxc*60
  419. 419 g$=left$(a$(x),1)
  420. 420 ifg$="@"thengosub501:g$=left$(a$(x),1)
  421. 421 ifg$="?"thengosub503:g$=left$(a$(x),1)
  422. 422 ifg$="[163]"thengosub505:g$=left$(a$(x),1)
  423. 423 ifg$="[166]"thengosub507:g$=left$(a$(x),1)
  424. 424 ifg$="[223]"thengosub509:g$=left$(a$(x),1)
  425. 425 ifg$="[169]"thengosub511:g$=left$(a$(x),1)
  426. 426 ifg$="%"thengosub513:g$=left$(a$(x),1)
  427. 427 ifg$="&"thengosub515:g$=left$(a$(x),1)
  428. 428 ifg$="_"thengosub517:g$=left$(a$(x),1)
  429. 429 ifg$="^"thengosub519:goto431
  430. 430 ifgr=0thenprint#4
  431. 431 print#4,a$(x):next
  432. 432 ifpeek(198)>0thenclose4:goto352
  433. 433 close4:goto405
  434. 434 rem ***aendern***
  435. 435 printchr$(147);chr$(14):zz=0:cd=0:ce=0:cf=0:ui=0:kp=0
  436. 436 print"[147][155]     [198]1 - [196] a t e i  [221]   [198]3 - [197]infue"
  437. 437 print"[145]"tab(36)"gen  [221]   [198]5 - [197]ntfernen  [221]   [198]2 - [200]ilfe     [146]"
  438. 438 forlf=1to15
  439. 439 forg=1to20
  440. 440 printa$(g+zz)
  441. 441 nextg:ifkp=1thenprint""
  442. 442 zz=zz+20:kp=1
  443. 443 rem * * * * * * * * * * * * * *
  444. 444 print""
  445. 445 print"[155][175][157]";
  446. 446 cd=cd+1
  447. 447 ifcd=21thencf=cf+20:cd=0:next
  448. 448 getw$:ifw$=""then448
  449. 449 ifw$=""thenzz=zz-20:cd=0:print"[147]":goto439
  450. 450 ce=ce+1
  451. 451 ifce>len(a$(cd+cf))thena$(cd+cf)=a$(cd+cf)+" "
  452. 452 ifw$=""thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
  453. 453 ifw$="[145]"thenprintmid$(a$(cd+cf),ce,1)"[145][145]":ce=0:cd=cd-2:goto445
  454. 454 ifw$=""thenw$=mid$(a$(cd+cf),ce,1)
  455. 455 ifw$="[157]"thenprintmid$(a$(cd+cf),ce,1)"[157][157][175][157]";:ce=ce-2:goto448
  456. 456 if asc(w$)=134thengoto473
  457. 457 if asc(w$)=135thengoto488
  458. 458 :
  459. 459 if asc(w$)=137thenui=3:goto225
  460. 460 if asc(w$)=138thengoto531
  461. 461 if asc(w$)=139thengoto538
  462. 462 if asc(w$)=13thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
  463. 463 if asc(w$)=133thengoto301
  464. 464 ifce=79thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
  465. 465 printw$"[175][157]";
  466. 466 ifce=1thena$(cd+cf)=w$+right$(a$(cd+cf),len(a$(cd+cf))-1):goto448
  467. 467 hj=cd+cf:kl$=""
  468. 468 kl$=left$(a$(hj),ce-1)
  469. 469 kl$=kl$+w$
  470. 470 kl$=kl$+right$(a$(hj),len(a$(hj))-ce)
  471. 471 a$(hj)=kl$
  472. 472 goto448
  473. 473 ac=ac+1:rem zeile einfuegen
  474. 474 ifcd+cf<59thengoto479
  475. 475 ifcd+cf<118thengoto482
  476. 476 ifcd+cf<177thengoto485
  477. 477 ifcd+cf<236thengoto1921
  478. 478 ifcd+cf<295thengoto1936
  479. 479 forx=59tocd+cfstep-1
  480. 480 a$(x)=a$(x-1):next
  481. 481 goto434
  482. 482 forx=118tocd+cfstep-1
  483. 483 a$(x)=a$(x-1):next
  484. 484 goto434
  485. 485 forx=177tocd+cfstep-1
  486. 486 a$(x)=a$(x-1):next
  487. 487 goto434
  488. 488 ac=ac-1:rem zeile entfernen
  489. 489 ifcd+cf<59thengoto492
  490. 490 ifcd+cf<118thengoto495
  491. 491 ifcd+cf<177thengoto498
  492. 492 forx=cd+cfto59
  493. 493 a$(x)=a$(x+1):next
  494. 494 goto434
  495. 495 forx=cd+cfto118
  496. 496 a$(x)=a$(x+1):next
  497. 497 goto434
  498. 498 forx=cd+cfto176
  499. 499 a$(x)=a$(x+1):next
  500. 500 goto434
  501. 501 print#4,chr$(14);:a$(x)=" "+right$(a$(x),len(a$(x))-1):f=3
  502. 502 return
  503. 503 print#4,chr$(15);:a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0
  504. 504 return
  505. 505 print#4,chr$(27);chr$(45);chr$(49);
  506. 506 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  507. 507 print#4,chr$(27);chr$(45);chr$(48);
  508. 508 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  509. 509 print#4,chr$(27);chr$(69);
  510. 510 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  511. 511 print#4,chr$(27);chr$(70);
  512. 512 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  513. 513 print#4,chr$(31);
  514. 514 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  515. 515 print#4,chr$(159);
  516. 516 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  517. 517 print#4,chr$(27);chr$(83);chr$(49);
  518. 518 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  519. 519 print#4,chr$(27);chr$(84);
  520. 520 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
  521. 521 print"[147]           "
  522. 522 print" [196]ateiname "
  523. 523 print"           [146]"
  524. 524 l=13:jk$="":print""tab(l+1)"[164]":goto526
  525. 525 print""tab(l)jk$"[164]":jk$=""
  526. 526 getjk$:ifjk$=""then526
  527. 527 l=l+1:ifl>29thenl=29
  528. 528 ifjk$=chr$(13)thenkr=1:print"[144][147]":sys49152:goto35
  529. 529 lf$=lf$+jk$
  530. 530 goto525
  531. 531 rem text -->
  532. 532 forx=1toe
  533. 533 lu=len(a$(x)):iflu<2thengoto536
  534. 534 iflu>79thengoto536
  535. 535 a$(x)=" "+a$(x)
  536. 536 next
  537. 537 goto434
  538. 538 rem text <--
  539. 539 forx=1toe
  540. 540 lu=len(a$(x)):iflu<2thengoto543
  541. 541 if left$(a$(x),1)<>chr$(32)thengoto543
  542. 542 a$(x)=right$(a$(x),lu-1)
  543. 543 next
  544. 544 goto434
  545. 545 ifty=1thenlf$=""
  546. 546 ifty>1thenlf$=left$(lf$,(len(lf$)-4))
  547. 547 printchr$(147):print"[147][153][196]isketteninhalt:"
  548. 548 print"---------------":print"[155]":ba$="":bb$="":cc$="":cc=0
  549. 549 open1,8,0,"$0"
  550. 550 get#1,ba$:get#1,bb$
  551. 551 get#1,ba$:get#1,bb$
  552. 552 get#1,ba$:get#1,bb$
  553. 553 ifba$<>""thencc=asc(ba$)
  554. 554 ifbb$<>""thencc=cc+asc(bb$)*256
  555. 555 print"[152]"mid$(str$(cc),2);tab(8);
  556. 556 get#1,bb$:ifst<>0then564
  557. 557 ifbb$<>chr$(34)then556
  558. 558 get#1,bb$:ifbb$<>chr$(34)thenprintbb$;:goto558
  559. 559 get#1,bb$:ifbb$=chr$(32)then559
  560. 560 printtab(30);:cc$=""
  561. 561 cc$=cc$+bb$:get#1,bb$:ifbb$<>""then561
  562. 562 print"["left$(cc$,3)"]"
  563. 563 ifst=0then551
  564. 564 print"[158][194][204][207][195][203][211] [198][210][197][197]":close1
  565. 565 poke198,0:wait198,1:poke198,0
  566. 566 goto275
  567. 567 :
  568. 568 print"[147]                        [155] [201]m [211]peicher  [146][154]"
  569. 569 forx=1to13:print"                                      [146]":next
  570. 570 print""
  571. 571 forx=1to10:printtab(25)""kf$(x):next
  572. 572 return
  573.